<script>on mouseUp-- GET NAME OF ICONask "An ICON will be created using the card art found in the" &&¬"square marked:" & return &¬" “Draw your ICON here”" & return & return &¬"Enter a name for your ICON." with sampleif the result is not empty then exit mouseUp -- Cancelput it into iconName------------------------------------------------------------------ COPY A 32 * 32 PIXEL REGION TO THE CLIPBOARDchoose select toolput right of btn "leftBorder" into xOriginput bottom of btn "TopBorder" into yOrigindrag from xOrigin, yOrigin to (xOrigin + 31), (yOrigin + 31)doMenu "Copy Picture"choose browse tool------------------------------------------------------------------ CONVERT THE IMAGE ON CLIPBOARD TO AN ICONclipToICON iconName -- applies image on clipboard to an ICON------------------------------------------------------------------ FORCE HYPERCARD TO READ THE MODIFIED RESOURCE FORKlock screenset the lockMessages to truego homego back------------------------------------------------------------------ DISPLAY NEW ICONset the icon of btn 1 to iconNameset the name of btn 1 to iconNameshow btn 1end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>18</left>
<top>8</top>
<right>264</right>
<bottom>35</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name>title</name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>18</left>
<top>42</top>
<right>499</right>
<bottom>283</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Documentation</name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>474</left>
<top>314</top>
<right>501</right>
<bottom>336</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>!</name>
<script>on mouseUpget fld "title"put word 1 of it into externalput word 2 of it into resourceTypeif resourceType is "XCMD" thendo (external && quote & "!" & quote & return & "get the result")else if resourceType is "XFCN" thendo (get && external && "(" & quote & "!" & quote & ")")elseexit mouseUpend ifanswer itend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>473</left>
<top>290</top>
<right>500</right>
<bottom>312</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>?</name>
<script>on mouseUpget fld "title"put word 1 of it into externalput word 2 of it into resourceTypeif resourceType is "XCMD" thendo (external && "?" & return & "get the result")else if resourceType is "XFCN" thendo (get && external && "(" & quote & "?" & quote & ")")elseexit mouseUpend ifanswer itend mouseUp</script>
<script>on mouseUpanswer "Print Now?" with "Cancel" or "OK"if it is not "OK" then exit mouseUpif the name of me is "Print Doc" thenprint field "Documentation"elseprint field "Documentation"end ifend mouseUp</script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>440</left>
<top>7</top>
<right>469</right>
<bottom>38</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>13744</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Home</name>
<script>on mouseUpgo homeend mouseUp</script>
</part>
<name></name>
<script>on openCardif the visible of fld "Source Code" is true then toggleSourceend openCardon toggleSourceif the visible of fld "Source Code" is true thenhide fld "Source Code"if there is a bg btn "Hide Source" thenset the name of bg btn "Hide Source" to "Show Source"end ifif there is a bg btn "Print Source" thenset the name of bg btn "Print Source" to "Print Doc"end ifelseshow fld "Source Code"if there is a bg btn "Show Source" thenset the name of bg btn "Show Source" to "Hide Source"end ifif there is a bg btn "Print Doc" thenset the name of bg btn "Print Doc" to "Print Source"end ifend ifend toggleSource</script>
